home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1999 April / Cd Pc Users extra 19 abril 1999.iso / Prog / Inst / Js02 / js02.exe / jscripts / hexidecv01.js < prev    next >
Encoding:
Text File  |  1998-12-30  |  1.5 KB  |  50 lines
  1. var val_hexidecimal;
  2.  
  3. function fhexidecimal(vin)
  4. {
  5.    
  6.    if (vin>=256) vin=255
  7.    if (vin<0) vin=0
  8.  
  9.    var l1=vin/16.
  10.  
  11.    if(l1<16) {var l2='F' ;var l3=15 ;var l4=(l1-l3)*16.}
  12.    if(l1<15) {var l2='E' ;var l3=14 ;var l4=(l1-l3)*16.}
  13.    if(l1<14) {var l2='D' ;var l3=13 ;var l4=(l1-l3)*16.}
  14.    if(l1<13) {var l2='C' ;var l3=12 ;var l4=(l1-l3)*16.}
  15.    if(l1<12) {var l2='B' ;var l3=11 ;var l4=(l1-l3)*16.}
  16.    if(l1<11) {var l2='A' ;var l3=10 ;var l4=(l1-l3)*16.}
  17.    if(l1<10) {var l2='9' ;var l3=9  ;var l4=(l1-l3)*16.}
  18.    if(l1<9)  {var l2='8' ;var l3=8  ;var l4=(l1-l3)*16.}
  19.    if(l1<8)  {var l2='7' ;var l3=7  ;var l4=(l1-l3)*16.}
  20.    if(l1<7)  {var l2='6' ;var l3=6  ;var l4=(l1-l3)*16.}
  21.    if(l1<6)  {var l2='5' ;var l3=5  ;var l4=(l1-l3)*16.}
  22.    if(l1<5)  {var l2='4' ;var l3=4  ;var l4=(l1-l3)*16.}
  23.    if(l1<4)  {var l2='3' ;var l3=3  ;var l4=(l1-l3)*16.}
  24.    if(l1<3)  {var l2='2' ;var l3=2  ;var l4=(l1-l3)*16.}
  25.    if(l1<2)  {var l2='1' ;var l3=1  ;var l4=(l1-l3)*16.}
  26.    if(l1<1)  {var l2='0' ;var l3=0  ;var l4=(l1-l3)*16.}
  27.   
  28.    if(l4<17) {var l5='0'}
  29.    if(l4<16) {var l5='F'}
  30.    if(l4<15) {var l5='E'}
  31.    if(l4<14) {var l5='D'}
  32.    if(l4<13) {var l5='C'}
  33.    if(l4<12) {var l5='B'}
  34.    if(l4<11) {var l5='A'}
  35.    if(l4<10) {var l5='9'}
  36.    if(l4<9)  {var l5='8'}
  37.    if(l4<8)  {var l5='7'}
  38.    if(l4<7)  {var l5='6'}
  39.    if(l4<6)  {var l5='5'}
  40.    if(l4<5)  {var l5='4'}
  41.    if(l4<4)  {var l5='3'}
  42.    if(l4<3)  {var l5='2'}
  43.    if(l4<1)  {var l5='1'}
  44.    if(l4<1)  {var l5='0'}
  45.   
  46.  
  47.    val_hexidecimal=l2+l5;
  48. }
  49.  
  50.